home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / EditLogin.lha / EditLogin / sys.EditLogin.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-25  |  769b  |  31 lines
  1. /* $VER: sys.EditLogin.rexx 1.0 (4/25/95 by Spike Dethman)
  2. */
  3. /* Arexx called in current xxx.welcome files for EditLogin.rexx    */
  4. /* usage:  {#0 systext:sys.EditLogin.rexx}            */
  5.  
  6. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  7. getuser 39 ; uucp=result ; userwelcome='Mail:users/'uucp'/sys.welcome'
  8. getuser 28 ; term=result
  9. defwelcome='systext:tt'term'.welcome.default'
  10. if ~exists(defwelcome) then defwelcome='systext:sys.welcome.default'
  11.  
  12. if exists(userwelcome) then do ;
  13.     changewhere 'Custom login'
  14.     sendfile (userwelcome) ;
  15.     exit ;
  16. end
  17.  
  18. if exists(defwelcome) then do ;
  19.     sendfile (defwelcome) ;
  20.     exit ;
  21. end
  22.  
  23. exit
  24.  
  25. SYNTAX:
  26. ERROR:
  27. IOERR:
  28. transmit errortext(RC)" error in l "sigl"n1>>"sourceline(sigl)"<< in sys.EditLogin.rexx"
  29. bufferflush
  30. exit 10
  31.